unit U_Public;

interface
uses
  Windows, Forms, Classes, SysUtils;


  function MsgBox(AInfo:string; Flag: Integer = MB_OK):Integer;
  function GetGuid: string;
  function GetAPPDir: string;

implementation

function MsgBox(AInfo:string;Flag: Integer):Integer;
begin
  Result := Application.MessageBox(PChar(AInfo), PChar(Application.Title), Flag);
end;

function GetGuid: string;
var
  guid: TGUID;
begin
  CreateGUID(guid);
  Result := GUIDToString(guid);
end;

function GetAPPDir: string;
begin
  Result := ExtractFilePath(Application.ExeName);
end;

end.
